Top 10k strings from Oligopoly v2 (1983)(CCS).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

   5 ;"Year ";t
   5 ;"Firm ";k;
   4 ;"______":
   3 p(k,t)=p(k,t-1
   3 ;"Money in hand":
   3 ;"       ":
   2 z(k,t)=0.75
   2 u(k,t)>960000
   2 tn=tn+n(k,t-1
   2 s333*q(k,t-1
   2 r(k,t)>100000
   2 q(k,t)>c(k)/20
   2 p(k,t)>p(k,t-1
   2 m(k,t)>100000
   2 i(k,t)>i/n
   2 i(k,t)=c(k)/20
   2 e(k)<-3000
   2 c(k)=c(k)+i(k,t)
   2 ;"price of renewing equipment";
   2 ;"Net profit":
   2 ;"Gross profit":
   2 ;"Depreciation":
   2 ;"(Press any key to continue.)":
   2 3333*a(t-1
   2 (h(k,t)+.5
   2 (c(k)*.075
   2 &fff*a(t-1
   1 z=z+z(k,t):
   1 z(k,t)=p1*f3+f2/m2+f1/r3
   1 z(k,t)=1.5
   1 z(k,t)=0.25
   1 x$);x$;"%"
   1 v(k,t)=v(k,t-1
   1 v(k,t)=(1.15
   1 u(k,t)>500000
   1 u(k,t)=e(k)+
   1 tx=tr*(g(k,t)-o(k,t)-w(k,t))
   1 tr=tr+0.05
   1 to=to+s(k,t):
   1 tn/n>15521
   1 tn/n>12674
   1 t(k)=tx/tr
   1 t(k)=-t(k)
   1 s333*b(k,t)
   1 s(k,t)>s(k,t-1
   1 s(k,t)>q(k,t)+k(k)
   1 s(k,t)=s(k,t-1
   1 s(k,t)=q*z(k,t)/z
   1 s(k,t)=q(k,t)+k(k)
   1 r2=r2+r(k,t-1
   1 r1=r1+r(k,t)
   1 r(k,t)>r(1
   1 r(k,t)>8000
   1 r(k,t)=r(k,t-1
   1 r(k,t)=r(k,t)-1870
   1 r(k,t)=100000
   1 r(k,t)=1000
   1 r(k,t)<r1/n
   1 r(k,t)<1000
   1 r(k,t)*n>r1
   1 q=q+s(k,t-1
   1 q(k,t)>1.5
   1 q(k,t)=q(k,t)-
   1 q(k,t)=1.5
   1 pp=pp+p(k,t-1
   1 p=p+p(k,t)
   1 p(k,t)>1.55
   1 p(k,t)>1.26
   1 p(k,t)>1.15
   1 p(k,t)=p(k,t)-dif*
   1 p(k,t)=p(k,t)-
   1 p(k,t)=p(k,t)+1
   1 p(k,t)<.89
   1 oligopoly A
   1 mm=mm+m(k,t-1
   1 m=m+m(k,t)
   1 m(k,t)>11000
   1 m(k,t)>1.8
   1 m(k,t)=m(k,t-1
   1 m(k,t)=m(k,t)-1580
   1 m(k,t)=m(k,t)*(1
   1 m(k,t)=m(1
   1 m(k,t)=3000
   1 m(k,t)=100000
   1 m(k,t)<2000
   1 k(k)=q(k,t)-s(k,t)+k(k)
   1 k(k)<c(k)/100
   1 i=i+i(k,t):
   1 i(k,t)>6000
   1 i(k,t)>15000
   1 i(k,t)>100000
   1 i(k,t)=i(k,t)/f4*h19
   1 i(k,t)=i(k,t)-2340
   1 i(k,t)=i(k,t)*h19
   1 i(k,t)=c(k)/40
   1 i(k,t)=100000
   1 i(k,t)<i/n
   1 i(k,t)<1000
   1 h(k,t)=h(k,t)+(q(k,t)-c(k)/20
   1 h(k,t)=f(k,t)+q(k,t)*v(k,t):
   1 h(k,t),f(k,t),v(k,t),q(k,t),i(k,t),r(k,t),m(k,t),s(k,t),p(k,t),g(k,t),b(k,t),t(k),n(k,t),e(k),k(k),c(k),u(k,t),d(k,t),o(k,t)
   1 fff*b(k,t)
   1 f4=i/a(t):
   1 f(k,t)=f(k,t-1
   1 e(k)<-2000
   1 dif=p(k,t)-p(1
   1 d(k,t)>100000
   1 d(k,t)=100000
   1 c(k)=c(k)+i(k,t):
   1 c(k)=c(k)+
   1 b(k,t)=b(k,t-1
   1 b(k,t)=b(k,t)*1.2
   1 b(k,t)=1.05
   1 b(k,t)=1.02
   1 b(k,t)=.985
   1 b(k,t)=.97
   1 b(k,t)=.95
   1 an=an+s(k,t)/to*2
   1 a(t)>a(t-1
   1 a(t)=n*o(1
   1 a(t)=a(t)+i(k,t-1
   1 a(t)=a(t)*(1
   1 a(t)<a(t-1
   1 a(t);" this year."
   1 VELOPMENT     ":
   1 OLIGOPOLY rv
   1 OLI       
   1 Created with Ramsoft MakeTZX
   1 ;"will rise by ";
   1 ;"will fall by ";
   1 ;"tries is ";
   1 ;"overheads":
   1 ;"again ."
   1 ;"Year ";t:
   1 ;"WE CONCEDE !":
   1 ;"Unfortunately this firm is      bankrupt and will not be        deciding anything !":
   1 ;"Trading Account":
   1 ;"TAXES UP !"
   1 ;"Stocks":
   1 ;"Sales Units - Year ";t
   1 ;"STRIKE":
   1 ;"Reps & Renewals":
   1 ;"Raw materials,wages":
   1 ;"Profit & Loss":
   1 ;"Production":
   1 ;"Please collect your results."
   1 ;"PUBLISHED BY   ";
   1 ;"OLIGOPOLY"
   1 ;"No. of years = ";tt:
   1 ;"Newsflash!":
   1 ;"Net assets":
   1 ;"Marketing":
   1 ;"Machinery":
   1 ;"Interest":
   1 ;"Interest Rates         ":
   1 ;"If orders rise above this,the";
   1 ;"If orders fall below this,the";
   1 ;"IMPORTS !"
   1 ;"How many firms are there in the            industry ?":
   1 ;"Firm ";k:
   1 ;"Firm ";k
   1 ;"FORECAST":
   1 ;"FINAL RESULTS":
   1 ;"Each year each firm must decide how to raise its profits and thevalue of its shares, taking ac- count of other firms' decisions."
   1 ;"Each `20 spent on Repairs and   Renewals will enable you to     produce an extra unit of output next year. You may spend up to  `100000.  Last  year  you spent `";
   1 ;"Do you want another game? (y/n)":
   1 ;"Dividends paid":
   1 ;"Demand expected to rise ";g;"%"
   1 ;"Demand expected to fall ";-g;"%"
   1 ;"Costs expected to rise  ";v;"%"
   1 ;"Costs expected to fall  ";-v;"%"
   1 ;"Contribution to":
   1 ;"Cash Flow":
   1 ;"Capacity of equipment indus-":
   1 ;"COPYRIGHT WARNING"
   1 ;"Balance Sheet":
   1 ;"Asset Values - Year ";t
   1 ;"Although you are the only playerthe Spectrum will run a rival   firm (number 2).":
   1 ;"Advice":
   1 ;"Accounting Costs":
   1 ;"ATTENTION ALL FIRMS !":
   1 ;"(Year ";t-1
   1 ;"(Total dividends paid: `";y(k);")"
   1 ;"(Press any key to continue.)"
   1 ;"(A 'negative' cost such as a    tax refund is, of course,       income !)"
   1 ;"(2 to 25) "
   1 ;"(1 to 6)"
   1 ;"% .                                                      "
   1 ;" Last year your price was ";p(k,t-1
   1 ;" (obsolete)"
   1 ;" (Year ";t-1
   1 ;" (";q(k,t);")"
   1 ;"  Unfortunately this firm is      bankrupt and will not be        making any decisions !        ":
   1 ;"  How many years' would you like             to play ?":
   1 ;"  High profits in the industry    have attracted foreign comp-    etition,which is expected to    take ";
   1 ;"  Do you wish to use a printer ?             (y/n)":
   1 ;"  Capital industries working              overtime.             "
   1 ;"     RESEARCH & DE
   1 ;"     0  "
   1 ;"        ":
   1 ;"         ":
   1 ;"          MARKETING             ":
   1 ;"          ":
   1 ;"           PRODUCTION           ":
   1 ;"           NEW EQUIPMENT        ":
   1 ;"            DIVIDENDS           ":
   1 ;"             PRICE              ":
   1 ;"                                                                                                                                                                                                                                 ":
   1 ; "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20%  or suffer a considerable loss ofoutput - perhaps a quarter.                                     Firms may consult each other butmust decide in secret. Do you   concede ?  (y/n)"
   1 ; " You may spend up to `100000 on  marketing. Last year you spent  `";m(k,t-1
   1 ;  "Research and development lowers costs and raises the appeal of  the product. You may spend up to`100000. Last year  you spent   `";r(k,t-1
   1 ;   "By paying dividends to sharehol-ders, you make your company's   shares more valuable. Last year you paid out ";d(k,t-1
   1 ;    "All decisions of firms should bein numbers. If letters are used,the request for a decision will begin again. If a firm spends orproduces too much or too little,it will be changed to the maxi- mum or minimum ."
   1 ;     " You may make up to ";
   1 ;       "Profits in the industry have    caused concern and you have     been referred to the Monopolies Commission. You may not raise   your price next year."
   1 ;             "The Government announces that   everyone is spending too much.  It is therefore raising taxes   by five percentage points to    ";tr*100
   1 ,u(k,t)*0.00033
   1 ,n;n;" Firms.":
   1 ,,,,"CASES COMPUTER  SIMULATIONS LTD ":
   1 +y(k)+d(k,t)):
   1 +s(k,t));" @ `";p(k,t);")":
   1 +pp)/(p(k,t-1
   1 +p(k,t))+(.1
   1 +i(k,t))):
   1 +f(k,t)/15
   1 +e(k)+n(k,t)+o(k,t)-d(k,t))
   1 +e(k)*-r/100
   1 +d(k,t))):
   1 +(p(k,t)*n))
   1 *(e(k)-5000
   1 );".                    "
   1 );".                              "
   1 );"% of the market."
   1 );"% of the market.                                                                                           "
   1 );" with overtime.                                                     "
   1 );" this   year, or ";
   1 )/(r(k,t-1
   1 )/(r(k,t)+1
   1 )/(r(k,t)*n+1
   1 )/(m(k,t-1
   1 )/(m(k,t)+0.1
   1 )/(m(k,t)*n+.1
   1 )*v(k,t)/3
   1 (s(k,t)*p(k,t)-h(k,t)-r(k,t)-i(k,t)-m(k,t)+0.5
   1 (s(k,t)*p(k,t)+.5
   1 (r(k,t)/(1
   1 (r(k,t)*(1
   1 (q(k,t)*(0.7
   1 (p/n);" then.":
   1 (p(k,t)*100
   1 (p(k,t)*(1
   1 (m(k,t)+r(k,t)+
   1 (i(k,t)/f4):
   1 (h20*i(k,t)+.5
   1 (g(k,t)-o(k,t)-w(k,t)-t(k)+0.5
   1 (g(k,t)-n(k,t)+.5
   1 (e(k)-n(k,t)-o(k,t)+d(k,t)+.5
   1 (c(k)-o(k,t))
   1 (c(k)*b(k,t)+0.5
   1 ((s(k,t)*p(k,t)+.5
   1 "will  rigorously  protect  the":
   1 "software is strictly prohibited."
   1 "hiring,  and lending  of this":
   1 "copyright, of  OLIGOPOLY.":
   1 "The Government announces that   everyone is spending too much.  It is therefore raising taxes   by five percentage points to    ";tr*100
   1 "Profits in the industry have    caused concern and you have     been referred to the Monopolies Commission. You may not raise   your price next year."
   1 "Please note unauthorised copying":
   1 "Please declare your decisions on":
   1 "OLIGOPOLY"
   1 " Your price may vary between 1   and 99."
   1 " Prices averaged around ";
   1 "  High profits in the industry    have attracted foreign comp-    etition,which is expected to    take ";
   1 "            Newsflash!             Capital industries working               overtime"
   1  1983 N.Holgate."
   1  "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20%  or suffer a considerable loss ofoutput - perhaps a quarter.                                     Firms may consult each other butmust decide in secret. Do you   concede ?  (y/n)"